home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Stars2.amos / Stars2.amosSourceCode
AMOS Source Code  |  1980-01-10  |  748b  |  33 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. WEKTOROWE_GWIAZDKI[40]
  9. Procedure WEKTOROWE_GWIAZDKI[LICZBA]
  10.    'DELTA/OPIUM 
  11.    Screen Open 0,320,250,2,Lowres
  12.    Hide : Curs Off : Flash Off : Cls 0
  13.    Palette $0,$FFF
  14.    Double Buffer : Autoback 0
  15.    Dim X_POS(LICZBA),Y_POS(LICZBA),SPEED(LICZBA)
  16.    For A=0 To LICZBA
  17.       SPEED(A)=Rnd(5)+1
  18.       X_POS(A)=Rnd(320)
  19.       Y_POS(A)=Rnd(246)
  20.    Next 
  21.    Ink 1,1,1
  22.    A=Execall(-132)
  23.    Do 
  24.       For A=0 To LICZBA
  25.          X_POS(A)=X_POS(A)+SPEED(A)
  26.          X_POS(A)=X_POS(A) mod Screen Width
  27.          Plot X_POS(A),Y_POS(A),1
  28.       Next 
  29.       Screen Swap 
  30.       If Btst(6,$BFE001)=False : A=Execall(-138) : End : End If 
  31.       Cls 0
  32.    Loop 
  33. End Proc